home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 5-029 turbo debugger and assem / disks.7z / 3 / CHAPXMPL.ARC / MYPROLOG.PRO < prev    next >
Encoding:
Text File  |  1988-08-29  |  215 b   |  13 lines
  1. /* MYPROLOG.PRO */
  2.  
  3. global predicates
  4.    double(integer,integer) - (i,o) language asm
  5.  
  6. goal
  7.    write("Enter an integer "),
  8.    readint(I),
  9.    double(I,Y),
  10.    write(I," doubled is ",Y) ,
  11.    readchar(_).
  12.  
  13.